unit FormPesquisaCanteiroUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Actions, Vcl.ActnList, Vcl.Grids,
  Vcl.DBGrids, JvExDBGrids, JvDBGrid, Vcl.StdCtrls;

type
  TFormPesquisaCanteiro = class(TForm)
    Label1: TLabel;
    EditPesquisar: TEdit;
    JvDBGrid1: TJvDBGrid;
    ActionList1: TActionList;
    Actionesc: TAction;
    procedure ActionescExecute(Sender: TObject);
    procedure EditPesquisarChange(Sender: TObject);
    procedure EditPesquisarKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure JvDBGrid1DblClick(Sender: TObject);
    procedure JvDBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    idcanteiro : integer;
    nomecanteiropopular,nomecanteirocientifico,coluna : string;
  end;

var
  FormPesquisaCanteiro: TFormPesquisaCanteiro;

implementation

{$R *.dfm}

uses DMDadosUnt;

procedure TFormPesquisaCanteiro.ActionescExecute(Sender: TObject);
begin
  idcanteiro := 0;
  nomecanteiropopular := '';
  nomecanteirocientifico := '';
  close;
end;

procedure TFormPesquisaCanteiro.EditPesquisarChange(Sender: TObject);
begin
  DMDados.dsCadastroCanteiro.DataSet.Filtered := false;

  DMDados.dsCadastroCanteiro.DataSet.Filter := 'NOME_CANTEIRO_POPULAR LIKE '+QuotedStr('%'+EditPesquisar.Text+'%')+
                                               ' OR NOME_CANTEIRO_CIENTIFICO LIKE'+QuotedStr('%'+EditPesquisar.Text+'%');

  DMDados.dsCadastroCanteiro.DataSet.Filtered := true;
end;

procedure TFormPesquisaCanteiro.EditPesquisarKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key = VK_DOWN then
begin
  JvDBGrid1.SetFocus;
end;
if key = VK_RETURN then
begin
  JvDBGrid1.SetFocus;
end;
end;

procedure TFormPesquisaCanteiro.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DMDados.dsCadastroCanteiro.DataSet.Filtered := False;
end;

procedure TFormPesquisaCanteiro.FormCreate(Sender: TObject);
begin
  DMDados.cdsCadastroCanteiro.Open;
end;

procedure TFormPesquisaCanteiro.JvDBGrid1DblClick(Sender: TObject);
begin
    if JvDBGrid1.SelectedIndex = 0 then
  begin
    coluna := 'POPULAR';
  end
  else
  begin
    coluna := 'CIENTIFICO';
  end;


  idcanteiro             := DMDados.cdsCadastroCanteiroID_CANTEIRO.AsInteger;
  nomecanteiropopular    := DMDados.cdsCadastroCanteiroNOME_CANTEIRO_POPULAR.AsString;
  nomecanteirocientifico := DMDados.cdsCadastroCanteiroNOME_CANTEIRO_CIENTIFICO.AsString;
  Close;
end;

procedure TFormPesquisaCanteiro.JvDBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
  begin
      if JvDBGrid1.SelectedIndex = 0 then
  begin
    coluna := 'POPULAR';
  end
  else
  begin
    coluna := 'CIENTIFICO';
  end;



    idcanteiro             := DMDados.cdsCadastroCanteiroID_CANTEIRO.AsInteger;
    nomecanteiropopular    := DMDados.cdsCadastroCanteiroNOME_CANTEIRO_POPULAR.AsString;
    nomecanteirocientifico := DMDados.cdsCadastroCanteiroNOME_CANTEIRO_CIENTIFICO.AsString;
    Close;
  end;
end;

end.
